home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 February / 64er_Magazin_86-02_1986_Markt__Technik_de.d64 / schreiberl. 801 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  8KB  |  210 lines
  1. 145 poke53281,14:poke 53280,14:poke646,6
  2. 150 printchr$(147);"schreiberling sucht daten-bitte warten."
  3. 160 dima1$(72),a2$(72),a3$(72)
  4. 165 :fori=1to16:q$=q$+chr$(128):nexti
  5. 170 :fori=1to23:o$=o$+chr$(128):nexti
  6. 220 restore
  7. 230 fori=1to72
  8. 240 forj=1to3
  9. 245 : read x
  10. 250 :ifx=-1then280
  11. 255 gosub3000
  12. 260 :ifj=1thena1$(i)=a1$(i)+chr$(x)
  13. 265 :ifj=2thena2$(i)=a2$(i)+chr$(x)
  14. 267 :ifj=3thena3$(i)=a3$(i)+chr$(x)
  15. 270 :goto 245
  16. 280 nextj
  17. 282 if len(a3$(i))=0then a3$(i)=left$(o$,len(a1$(i)))
  18. 285 next i
  19. 320 printchr$(147);chr$(14);chr$(18);".....eine.zeile.eingeben:.............";
  20. 325 printchr$(146)
  21. 330 gett$:printt$;
  22. 340 ift$=chr$(13)then410
  23. 350 goto330
  24. 410 open1,4
  25. 411 y=50:p=0
  26. 417 print#1,chr$(8)
  27. 418 forj=1to3
  28. 419 az=0
  29. 422 :fori=1064+pto1064+y
  30. 425 :w=peek(i)
  31. 430 :ifw=32orw=96then ax$=q$:gosub932
  32. 440 :ifw=63thenf=-17:gosub910
  33. 450 :ifw=40orw=41thenf=4:gosub910
  34. 460 :ifw=33thenf=10:gosub910
  35. 470 :ifw>64andw<91thenf=-64:gosub910
  36. 475 :ifw>0 andw<27thenf=46:gosub910
  37. 480 :ifw>43andw<60thenf=-17:gosub910
  38. 550 :nexti:ifj<3thenprint#1
  39. 560 nextj
  40. 670 print#1:close1:goto320
  41. 910 ifj=1then ax$ =a1$(w+f)
  42. 920 ifj=2then ax$ =a2$(w+f)
  43. 930 ifj=3then ax$ =a3$(w+f)
  44. 932 az=az+len(ax$)
  45. 933 if az>450 then i=1064+y:goto 940
  46. 935 print#1,ax$;
  47. 940 return
  48. 1010 data0,32,65,198,200,240,252,127,31,1,0,0,0,0,0,0,-1
  49. 1020 data0,62,255,3,3,2,4,200,248,254,31,3,1,2,4,0,-1,-1
  50. 1030 data0,128,255,255,255,131,131,131,131,131,131,68,124,56,0,-1
  51. 1040 data0,1,255,255,255,1,1,1,1,1,1,130,254,124,0,-1,-1
  52. 1050 data0,7,31,63,112,192,128,128,128,128,128,128,64,120,56,0,-1
  53. 1060 data0,224,248,252,14,3,1,1,1,1,1,1,2,30,28,0,-1,-1
  54. 1070 data0,128,255,255,255,128,128,128,128,128,64,112,63,31,15,0,-1
  55. 1080 data0,1,255,255,255,1,1,1,1,1,2,14,252,248,240,0,-1,-1
  56. 1090 data0,7,31,63,114,194,130,130,131,131,131,131,66,112,48,0,-1
  57. 1100 data0,224,248,252,14,3,1,1,1,1,129,1,2,14,12,0,-1,-1
  58. 1110 data0,128,255,255,255,66,66,130,130,131,131,131,131,98,96,0,-1
  59. 1120 data0,0,255,255,255,0,0,0,0,0,0,128,0,0,0,0,-1
  60. 1130 data4,8,248,240,192,0,0,0,0,0,0,0,0,0,0,0,-1
  61. 1140 data0,7,15,63,112,192,128,128,128,128,194,99,99,3,2,0,-1
  62. 1150 data0,248,252,254,7,3,1,1,2,4,8,255,255,255,0,0,-1
  63. 1160 data0,0,0,0,0,0,0,0,0,4,8,248,240,192,0,0,-1
  64. 1170 data0,128,255,255,255,2,4,8,8,16,16,24,31,15,3,0,-1
  65. 1180 data0,0,255,255,255,0,0,0,0,0,3,15,255,249,225,0,-1,-1
  66. 1190 data0,128,255,255,255,0,0,-1
  67. 1200 data0,0,255,255,255,1,0,-1,-1
  68. 1210 data0,0,128,255,255,255,0,-1
  69. 1220 data0,0,0,255,255,255,0,-1
  70. 1230 data0,4,8,248,240,192,0,-1
  71. 1240 data0,128,255,255,255,3,3,6,4,12,56,240,224,0,0,0,-1
  72. 1250 data0,1,255,255,255,0,192,240,124,30,3,1,1,1,6,0,-1,-1
  73. 1260 data0,128,255,255,255,0,0,0,0,0,0,0,0,0,0,0,-1
  74. 1270 data0,1,255,255,255,1,1,1,1,1,1,1,1,3,7,0,-1,-1
  75. 1280 data0,7,31,56,96,192,128,128,128,128,127,63,127,128,128,128,128
  76. 1290 data192,96,56,31,7,0,-1
  77. 1300 data0,192,248,62,7,1,1,0,0,0,255,255,255,0,0,0,1,1,7,62,248,192,0,-1,-1
  78. 1310 data0,128,255,255,255,63,3,0,0,0,0,128,255,255,0,0,-1
  79. 1320 data0,0,255,255,255,0,224,240,56,12,6,2,255,255,1,0,-1
  80. 1330 data4,8,248,240,192,0,0,0,0,0,0,0,0,0,0,0,-1
  81. 1340 data0,7,31,63,96,64,128,128,128,128,64,96,63,31,7,0,-1
  82. 1350 data0,224,248,252,6,2,1,1,1,1,2,6,252,248,224,0,-1,-1
  83. 1360 data0,128,255,255,255,48,112,192,128,128,128,192,96,63,31,0,-1
  84. 1370 data0,0,255,255,255,12,14,3,1,1,1,3,6,252,248,0,-1
  85. 1380 data0,0,252,252,252,4,0,0,0,0,0,0,0,0,0,0,-1
  86. 1390 data0,15,63,127,192,128,128,128,128,128,64,96,63,63,63,64,0,-1
  87. 1400 data0,240,252,254,3,1,1,1,1,1,14,12,255,255,255,0,0,-1
  88. 1410 data0,0,0,0,0,0,0,0,0,0,0,4,252,248,248,0,0,-1
  89. 1420 data0,128,255,255,255,129,129,129,129,129,195,126,60,0,0,0,-1
  90. 1430 data0,1,255,255,255,0,128,192,96,56,30,7,3,3,2,0,-1,-1
  91. 1440 data0,30,63,127,199,131,131,131,131,131,131,131,195,113,48,0,-1
  92. 1450 data0,28,30,3,129,129,129,129,129,129,131,199,254,252,248,0,-1,-1
  93. 1460 data0,32,96,192,128,128,255,255,255,128,128,128,128,128,0,-1
  94. 1470 data0,0,0,0,0,0,255,255,255,1,0,0,0,0,0,-1,-1
  95. 1480 data0,7,159,255,128,128,0,0,0,0,128,255,255,255,0,0,-1
  96. 1490 data0,248,252,254,1,1,1,1,2,4,8,255,255,255,1,0,-1,-1
  97. 1500 data0,96,192,224,252,127,31,3,0,0,0,0,7,216,224,0,-1
  98. 1510 data0,0,0,0,0,0,224,248,255,15,48,192,0,0,0,0,-1,-1
  99. 1520 data0,3,15,191,192,128,0,0,3,15,191,192,128,0,0,0,0,128,255,255
  100. 1530 data255,0,0,-1
  101. 1540 data0,248,254,254,3,1,1,1,250,254,254,3,1,1,1,2,2,4,255,255,255,1,0,-1,-1
  102. 1550 data0,32,64,192,240,252,63,15,3,4,8,16,224,192,0,0,-1
  103. 1560 data0,7,11,16,32,64,128,192,240,252,62,15,3,1,6,0,-1,-1
  104. 1570 data0,96,192,224,252,127,31,3,0,0,0,0,7,216,224,0,-1
  105. 1580 data0,0,0,0,0,0,224,248,255,14,48,192,0,0,0,0,-1
  106. 1590 data0,0,0,0,12,28,24,96,128,0,0,0,0,0,0,0,-1
  107. 1600 data0,128,192,192,224,128,128,129,131,143,158,188,240,224,192,0,-1
  108. 1610 data0,3,7,15,29,121,241,225,129,1,1,7,3,3,1,0,-1,-1
  109. 1614 data0,0,0,0,0,-1,0,0,3,3,0,-1,0,48,192,0,0,-1
  110. 1615 data0,0,1,1,1,1,1,1,1,1,1,1,0,0,-1
  111. 1616 data0,0,128,128,128,128,128,128,128,128,128,128,0,0,-1,-1
  112. 1617 data0,0,0,0,0,0,-1,0,0,3,3,0,0,-1,-1
  113. 1618 data0,0,0,0,0,0,3,12,48,192,0,0,-1
  114. 1619 data0,0,3,12,48,192,0,0,0,0,0,0,-1,-1
  115. 1620 data0,0,3,12,16,32,32,32,48,56,15,0,-1
  116. 1630 data0,240,252,14,3,1,1,1,2,12,240,0,0,-1,-1
  117. 1640 data0,16,31,63,63,0,0,-1
  118. 1650 data0,0,255,255,254,2,0,-1,-1
  119. 1660 data0,8,16,32,32,32,48,31,15,0,0,0,0,0,-1
  120. 1670 data0,1,3,7,15,29,249,225,193,1,1,3,2,0,-1
  121. 1680 data0,0,0,128,128,128,128,128,128,128,0,0,0,0,-1
  122. 1690 data0,16,32,33,51,62,28,0,0,-1
  123. 1700 data0,64,128,128,128,255,254,56,0,-1
  124. 1710 data0,16,32,64,128,128,0,0,0,-1
  125. 1720 data0,0,0,0,1,2,4,15,31,63,0,0,0,0,-1
  126. 1730 data0,32,96,160,32,32,32,255,255,254,32,32,32,0,-1,-1
  127. 1740 data0,1,7,59,51,19,19,19,17,16,0,-1
  128. 1750 data0,128,0,0,0,0,131,252,240,0,0,-1
  129. 1760 data0,8,16,32,64,128,0,0,0,0,0,-1
  130. 1770 data0,3,15,18,36,68,76,140,12,7,3,0,-1
  131. 1780 data0,248,254,7,1,1,1,1,1,6,248,0,-1,-1
  132. 1790 data0,48,48,24,24,24,17,22,56,32,0,-1
  133. 1800 data0,0,1,15,30,112,128,0,0,0,0,-1
  134. 1810 data0,48,240,192,0,0,0,0,0,0,0,-1
  135. 1820 data0,0,121,135,131,131,133,121,0,0,-1
  136. 1830 data0,124,194,129,1,1,129,226,124,0,-1,-1
  137. 1840 data0,0,3,4,4,8,8,12,6,7,1,0,-1
  138. 1850 data0,248,252,6,3,1,1,2,2,229,254,0,-1
  139. 1860 data0,0,0,0,0,8,16,32,64,128,0,0,-1
  140. 1870 data0,0,3,3,0,0,-1,0,0,3,3,0,0,-1,-1
  141. 1880 data0,0,0,0,0,0,-1,0,0,51,51,0,0,-1,0,48,192,0,0,0,-1
  142. 1910 data0,0,127,255,254,0,0,-1,0,0,243,243,0,0,0,-1,-1
  143. 1920 data0,31,63,64,128,0,-1,0,248,252,2,1,0,-1,-1
  144. 1930 data0,128,64,63,31,0,-1,0,1,2,252,248,0,-1,-1
  145. 1940 data0,48,112,192,129,135,252,120,0,-1
  146. 1950 data0,0,0,115,243,0,0,0,0,-1,-1
  147. 1960 data0,0,1,3,2,2,2,1,0,1,3,2,0,0,-1
  148. 1970 data0,252,254,3,1,1,1,1,130,254,255,1,2,0,-1,-1
  149. 1980 data0,64,255,255,0,1,2,2,2,2,1,1,0,-1
  150. 1990 data0,0,252,254,193,193,1,1,1,2,254,252,0,-1,-1
  151. 2000 data0,0,1,3,2,2,2,2,1,1,0,-1,0,252,254,3,1,1,1,1,2,4,0,-1,-1
  152. 2010 data0,0,0,1,2,2,2,1,128,255,255,0,0,0,-1
  153. 2020 data0,124,254,3,1,1,1,2,132,254,255,1,2,0,-1,-1
  154. 2030 data0,0,1,3,2,2,2,2,1,0,0,-1
  155. 2040 data0,252,254,35,33,33,33,33,161,98,0,-1,-1
  156. 2050 data0,15,63,114,130,131,131,128,96,32,0,-1
  157. 2060 data0,255,255,0,0,0,0,0,0,0,0,-1,0,252,252,4,0,0,0,0,0,0,0,-1
  158. 2070 data0,0,0,1,2,2,2,1,1,1,1,1,0,-1
  159. 2080 data0,124,254,131,1,1,1,130,132,191,127,128,0,-1
  160. 2090 data0,56,52,4,4,4,4,8,16,240,224,0,0,-1
  161. 2100 data0,128,255,255,1,2,2,2,1,1,0,0,0,0,-1
  162. 2110 data0,0,255,255,0,0,0,0,0,254,255,1,2,0,-1,-1
  163. 2120 data0,2,51,51,0,0,0,-1,0,0,254,255,1,2,0,-1,-1
  164. 2130 data0,2,51,51,0,-1,0,0,255,255,0,-1,4,8,240,224,0,-1
  165. 2140 data0,128,255,255,0,0,0,3,3,0,0,0,-1
  166. 2150 data0,0,255,255,32,88,76,134,3,1,2,0,-1,-1
  167. 2160 data0,128,255,255,0,0,0,-1,0,0,254,255,1,2,0,-1,-1
  168. 2170 data0,1,2,3,1,1,2,3,1,1,2,3,1,0,0,0,-1
  169. 2180 data0,0,0,255,255,0,0,255,255,0,0,254,255,1,2,0,-1,-1
  170. 2190 data0,1,2,3,1,1,2,3,1,0,0,0,-1
  171. 2200 data0,0,0,255,255,0,0,254,255,1,2,0,-1,-1
  172. 2210 data0,0,1,1,2,2,2,2,3,1,0,0,-1
  173. 2220 data0,252,254,3,1,1,1,1,1,254,252,0,-1,-1
  174. 2230 data0,1,2,3,1,0,1,2,2,2,3,1,0,0,-1
  175. 2240 data0,0,0,255,255,132,2,1,1,1,3,254,252,0,-1
  176. 2250 data0,0,0,252,252,4,0,0,0,0,0,0,0,0,-1
  177. 2260 data0,0,0,1,2,2,2,1,1,1,1,1,0,-1
  178. 2270 data0,124,254,131,1,1,1,130,132,191,127,128,0,-1
  179. 2280 data0,0,0,0,0,0,0,0,0,252,252,4,0,-1
  180. 2290 data0,1,2,3,1,2,3,1,1,0,-1,0,0,0,255,255,0,0,128,0,0,-1,-1
  181. 2300 data0,0,1,3,2,2,2,2,3,1,0,0,-1
  182. 2310 data0,198,247,49,49,49,49,49,179,159,12,0,-1,-1
  183. 2320 data0,4,12,255,255,4,4,4,0,-1
  184. 2330 data0,0,0,254,255,1,2,0,0,-1,-1
  185. 2340 data0,2,3,3,0,0,0,2,3,3,0,0,0,-1
  186. 2350 data0,0,254,255,1,1,1,2,254,255,1,2,0,-1,-1
  187. 2360 data0,1,2,3,3,1,0,0,0,0,0,3,3,0,-1
  188. 2370 data0,0,0,0,128,224,120,30,7,12,48,192,0,0,-1,-1
  189. 2380 data0,2,3,3,0,0,3,3,0,0,3,3,0,-1
  190. 2390 data0,0,254,255,1,2,254,255,1,2,254,252,0,-1,-1
  191. 2400 data0,2,3,3,2,0,0,0,0,3,2,0,0,-1
  192. 2410 data0,1,3,132,232,112,56,92,134,3,1,2,0,-1,-1
  193. 2420 data0,1,2,3,3,1,0,0,0,0,0,3,3,0,-1
  194. 2430 data0,0,0,0,128,224,120,30,7,12,48,192,0,0,-1
  195. 2440 data0,0,0,24,28,12,48,192,0,0,0,0,0,0,-1
  196. 2450 data0,3,3,2,2,2,2,2,3,3,2,0,-1
  197. 2460 data0,1,3,7,13,57,113,193,129,3,3,0,-1,-1
  198. 3000 b2=0
  199. 3010 b1=x
  200. 3050 if b1-128>-1thenb1=b1-128:b2=b2+1
  201. 3060 if b1-64>-1thenb1=b1-64:b2=b2+2
  202. 3070 if b1-32>-1thenb1=b1-32:b2=b2+4
  203. 3080 if b1-16>-1thenb1=b1-16:b2=b2+8
  204. 3090 if b1-8>-1thenb1=b1-8:b2=b2+16
  205. 3100 if b1-4>-1thenb1=b1-4:b2=b2+32
  206. 3110 if b1=1orb1=>2then b2=b2+64
  207. 3120 b2=b2+128
  208. 3130 x=b2
  209. 3140 return
  210.